home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Graphics / TVPaint / Rexx / Vortex.rx < prev    next >
Encoding:
Text File  |  1995-11-07  |  387 b   |  36 lines
  1. /*
  2.     param circle
  3.  
  4.     Auto:rx Cir-Vortex.rx
  5. */
  6.  
  7. options results
  8.  
  9. address 'rexx_TVPaint'
  10.  
  11.     parse ARG m x y r b
  12.  
  13.     if(m~='Circle')then
  14.     do
  15.         tv_warn 'I need CIRCLE parameters'
  16.         exit
  17.     end
  18.  
  19.     tv_UpdateUndo
  20.  
  21.     n=5
  22.     tv_SetDrawMode Shift
  23.     tv_AeroSpline 0 255
  24.     tv_AeroPower 100
  25.     tv_AirPen n*2
  26.  
  27.     do while r>n
  28.         do i=0 to r by n
  29.             tv_circle x y i 0
  30.         end
  31.         r=r-n
  32.     end
  33.  
  34.     tv_SetDrawMode Color
  35.     tv_Pen 1
  36.